/* GUI CONVERTED from rcctwbfm.i (converter v1.75) Thu Jul 19 05:35:05 2001 */
/* rcctwbfm.i  Container Workbench Include for Forms                          */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.6.1.8 $                                                         */
/*V8:ConvertMode=Maintenance                                                  */
/* REVISON: 7.5       LAST MODIFIED: 03/21/95           BY: GWM *J049*        */
/* REVISON: 8.5       LAST MODIFIED: 04/24/96           BY: GWM *J0K9*        */
/* REVISION: 8.6      LAST MODIFIED: 08/03/96   BY: *K003* Vinay Nayak-Sujir  */
/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane          */
/* REVISION: 8.6E     LAST MODIFIED: 05/20/98   BY: *K1Q4* Alfred Tan         */
/* REVISION: 8.6E     LAST MODIFIED: 07/22/98   BY: *J2M7* Niranjan R.        */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00   BY: *N08T* Annasaheb Rahane   */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00   BY: *N0KP* Mark Brown         */
/* REVISION: 9.1      LAST MODIFIED: 09/06/00   BY: *N0PR* Dave Caveney       */
/* REVISION: 9.1      LAST MODIFIED: 10/09/00   BY: *N0R9* Jean Miller        */
/* Revision: 1.6.1.7     BY: Jean Miller    DATE: 03/22/01 ECO: *P008*        */
/* $Revision: 1.6.1.8 $ BY: Ellen Borden    DATE: 07/09/01   ECO: *P007* */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/* ********** Begin Translatable Strings Definitions ********* */

&SCOPED-DEFINE rcctwbfm_i_1 "UM"
/* MaxLen: Comment: */

&SCOPED-DEFINE rcctwbfm_i_2 "Quantity"
/* MaxLen: Comment: */

&SCOPED-DEFINE rcctwbfm_i_4 "Item Number"
/* MaxLen: Comment: */

&SCOPED-DEFINE rcctwbfm_i_6 "Loc"
/* MaxLen: Comment: */

&SCOPED-DEFINE rcctwbfm_i_8 "Level"
/* MaxLen: Comment: */

&SCOPED-DEFINE rcctwbfm_i_15 "Container"
/* MaxLen: Comment: */

&SCOPED-DEFINE rcctwbfm_i_16 "Tare Weight"
/* MaxLen: Comment: */

&SCOPED-DEFINE rcctwbfm_i_17 "Kanban"
/* MaxLen:15 Comment: */

/* ********** End Translatable Strings Definitions ********* */

define variable lbl-del-shipper   as character.
define variable lbl-del-item      as character.
define variable lbl-del-cont      as character.
define variable lbl-rem-cont      as character.
define variable lbl-rem-cont-plus as character.
define variable add-option        as character.

/* WORKBENCH MAIN DISPLAY FORM */
FORM /*GUI*/ 
   first_column         label {&rcctwbfm_i_8}
   cont_id              label {&rcctwbfm_i_15}
   ship_line.abs_item   label {&rcctwbfm_i_4}
   ship_line.abs_qty    label {&rcctwbfm_i_2}
   ship_line.abs__qad02 label {&rcctwbfm_i_1} format "XX"
with frame k width 80 7 down scroll 1
title color normal (getFrameTitle("CONTAINER_WORKBENCH",28)) attr-space BGCOLOR 8 /*GUI*/.


/* SET EXTERNAL LABELS */
setFrameLabels(frame k:handle).

/* ADD OPTIONS FRAME */
FORM /*GUI*/ 
   add-option format "x(78)" no-label
with frame m width 80
title color normal (getFrameTitle("ADD_OPTIONS",17)) THREE-D /*GUI*/.


assign
   add-option:screen-value = " 1 - "
                             + getTermLabel("ADD_ITEM",32)
                             + "   2 - "
                             + getTermLabel("ADD_CONTAINER",32).

/* SET EXTERNAL LABELS */
setFrameLabels(frame m:handle).

FORM /*GUI*/ 
   
 RECT-FRAME       AT ROW 1.4 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1   COLUMN 3 NO-LABEL
 SKIP(.1)  /*GUI*/
" 1 -" lbl-del-shipper   format "x(50)" skip
   " 2 -" lbl-del-item      format "x(50)" skip
   " 3 -" lbl-del-cont      format "x(50)" skip
   " 4 -" lbl-rem-cont      format "x(50)" skip
   " 5 -" lbl-rem-cont-plus format "x(50)" skip
 SKIP(.4)  /*GUI*/
with frame m1 width 80
 no-labels NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-m1-title AS CHARACTER.
 F-m1-title = (getFrameTitle("DELETE_OPTIONS",50)).
 RECT-FRAME-LABEL:SCREEN-VALUE in frame m1 = F-m1-title.
 RECT-FRAME-LABEL:WIDTH-PIXELS in frame m1 =
  FONT-TABLE:GET-TEXT-WIDTH-PIXELS(
  RECT-FRAME-LABEL:SCREEN-VALUE in frame m1 + " ", RECT-FRAME-LABEL:FONT).
 RECT-FRAME:HEIGHT-PIXELS in frame m1 =
  FRAME m1:HEIGHT-PIXELS - RECT-FRAME:Y in frame m1 - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME m1 = FRAME m1:WIDTH-CHARS - .5. /*GUI*/


assign
   lbl-del-shipper:screen-value = getTermLabel("DELETE_PRE-SHIPPER/SHIPPER",50)
   lbl-del-item:screen-value  = getTermLabel("DELETE_ITEM/CONTAINER_LINE",50)
   lbl-del-cont:screen-value  = getTermLabel("DELETE_CONTAINER_PLUS_CONTENTS",50)
   lbl-rem-cont:screen-value  = getTermLabel("REMOVE_CONTAINER",50)
   lbl-rem-cont-plus:screen-value =
      getTermLabel("REMOVE_CONTAINER_PLUS_CONTENTS",50).


/* WORKBENCH LOWER UPDATE FRAME */
FORM /*GUI*/ 
   
 RECT-FRAME       AT ROW 1 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1 COLUMN 3 NO-LABEL VIEW-AS TEXT SIZE-PIXELS 1 BY 1
 SKIP(.1)  /*GUI*/
cont_id              colon 13 label {&rcctwbfm_i_15}
   ship_line.abs_vol    colon 50
   ship_line.abs_vol_um          no-label
   ship_line.abs_item   colon 13 label {&rcctwbfm_i_4}
   ship_line.abs_site   colon 50
   ship_line.abs_loc             label {&rcctwbfm_i_6}
   ship_line.abs_qty    colon 13 label {&rcctwbfm_i_2}
   space(6)
   ship_line.abs__qad02          label {&rcctwbfm_i_1} format "XX"
   ship_line.abs_lot    colon 50
   ship_line.abs_nwt    colon 13
   ship_line.abs_wt_um           no-label
   ship_line.abs_ref    colon 50
   cmmts                colon 70
   l_abs_tare_wt        colon 13 label {&rcctwbfm_i_16}
   l_twt_um                      no-label
   ship_line.abs__qad04 colon 50 label {&rcctwbfm_i_17}
   ship_line.abs_gwt    colon 13
   gwt_um                        no-label
   pt_desc1             colon 50 format "x(21)"
   ship_line.abs_order colon 13
   ship_line.abs_line colon 50
 SKIP(.4)  /*GUI*/
with frame sample side-labels width 80 1 down attr-space NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-sample-title AS CHARACTER INITIAL "".
 RECT-FRAME-LABEL:SCREEN-VALUE in frame sample = F-sample-title.
 RECT-FRAME-LABEL:HIDDEN in frame sample = yes.
 RECT-FRAME:HEIGHT-PIXELS in frame sample =
  FRAME sample:HEIGHT-PIXELS - RECT-FRAME:Y in frame sample - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME sample = FRAME sample:WIDTH-CHARS - .5.  /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame sample:handle).
